unit AppUtils;

interface

var
  AppPath, AppExeName, AppIniName: string;

implementation
uses SysUtils;

initialization
  AppPath := ExtractFilePath( ParamStr(0) );
  AppExeName := ExtractFileName( ParamStr(0) );

  AppIniName := ChangeFileExt(AppExeName, '.ini')

end.
